Skip to main content

Full text of "LISTing Newsletter"

See other formats


LONG ISLAND SINCLAIR TIMEX GROUP 


INCORPORATING % NYTSE OF NEW YORK CITY 
ISSUE: __ FEBRUARY 1990 


Ж МЕН YORK TIMEX SINCLAIR ENTHUSIASTS: NEXT MEETING MARCH 11, 1930 


LIST MEMBERSHIP IS 545,00, LIBRARY TAPES ARE AVALIABLE, HAITE THE 5 
ADDRESS PRINTED BELON, 


LISTING TZSUE LISTING 
мозте е Ета HCZTRL 
GIA IZ2zU Mis NOSTALGIA 125 
UE LIST ALGIA TUE 115 ii aa 
TING мо: SSUE LISTING но AMINA orc mad] 
STALGIA TING могтеа зла | 
ISSUE STALGIA TSSuE f rU 
LISTING ТЕМЕ LISTIN (EREA ЕЗ EA ГАЗ, EA A = 
с HOSTEL LISTING ROSTA | EA АШАСА aA di DIG 
OE 215 P.PRRISLSIS I$ fiee cgala 
STING NO: SUE.CE TETING N ed a a aoa 
дате 218 ZTING. НОТА ВІ | 
A ISSUE TITALGIA ISzUE 
LIST тнт В, ISSE ЪТЪТЕ ; 


FL y ete ne, NES шеш тє ча че те 45 эе әш же тё өз ae з та С пут пп өч өң 
ERE RE nunt АВАЛА АДА ада 666266666. АА 


11957; 
5 PERI LANE | 


ЖЕ Поп Lambert JAN/91 
TEM е: а pee Dr. S. W. 
Cedar Rapids, IA 
52404 
FIRST CLASS MAIL 
CORRER on DATED MEETING NOTICE 
YOUR LABEL 
IS DATE OF - 1 
LAST ISSUE. 


Дада е ада а. (RRR EE ЗЕ 25 А a3 ee WE E а. ў LATE FL&SH А LATE FLASH 


------------.............-....... 


г" 
нм 
a 


а а a ad А AS I AM WRITING, STONEY 
РЕ 3. HAR TELEPHONES ТО REFJORTSMUG ІЗ 
TEES. — EDGE HAVING A SINCLAIR CONVENTION AT 
REC: SEC.: STEL HOLICAY 1ММ, WRURESHA, WIZ. 
EDITOR. FEED | ТНЕ ОММЕМТТОМ WILL START WITH 
LIER. TOM A BAR | ig 1, 1350 AND 
SSS ара авва S SSeS cmo ee es meum erem rr EXTEH JUNE 2, 1888. 
дата at LS FOR ATIONCONTACT ; 

PLEASE SEND INGUIRIES ТО EILL 

CIST 2052 = 

МЕ. HARLI тт HILA ij 

Е БЕБІ L ОВ YO - 

WALLEY = Ne 2525841. HEIL 2 
PLERSE ZEND £L ION то: 414-3 === 

МЕ. FEEDEF STERN 

eid FORBERT= ee a а алы ыы ы ыы а MEE EE TRE ы ыы 

HOLBROOK, М.У. 11741 : HARUEY READ 


---------«---------------------- RECEIVED = 
MEETING. FR 
МҮТЗЕ THESE CORR 


MY TSE MEETS THE MONDAY AFTER CLRSZIFIEDS 
THE LIZT HEETIHZ AT; 

MISS КІМ REZTRURRHT 

FARR RUEML'E ЕСОТН 

EETLEEH Zi 37. SHO zz ST. 

MEETINGS ТЕБЕТ 7:28 FH. 


Ai т пей 


sa aa'aa azana aaas aaan nsaan aranan ЉЕЕК МО Е 
OF ЕРЕ 1 
COMING EVENTS - СОНЕ ТЕБ T 
Me n sio, SM ыз A A жЕ Vcr n сее еее нае зе оное Wt OFT 
Е HEET ING TING шоп 
H MOT АТУ 
ANT ТТЕР 
H ED SSSIFIE 
Е том 


накы MEETING То INTERES 

ORDER E CONTRI 
n ADT FEED 

LAST T IMG ADDR 

mL LG i 

EY EI 

ENDI 

HY A 


село 


т тит 


rm 


STONEY БЕРОБТЕС THAT TRENTON 
STATE COLLEGE REFUSES TO HOST 
THE COMPUTER FES 
THE AMATEUR COME 
M. J. LH e c RGAN = 
THE COMPUTER FEZ 
FOR АМ ALTERNATE 


Пи Па) 

Ы 
кы сага 
pO 


emori 
нога 
n] 
HURTS 
> 


сй 
с 


WANTED. 


FORM = 
FRED REPORTED THAT НЕ HAS хем 
ANSI МУ INQUIRIES ABOUT 

PROG БЕЗ. EUT NO ONE HAS 

YET СНЕСЕ TO Е! ВСЕ AN 


pe 


ш-часгсласок- 


Wrapping 
FRCUDE 
WORD РКОС5 
AERCO INT 
TALK CLOCK 
ZTALK 
INVOICING 
BLURYTHHS 
READER 1 


10 READER 2 
11 TRACE 

12 RENUMBER 
13 CASE SWAP 
14 VARS 

15 SCROLL 

16 SCROLL 

17 SCROLL 

18 OVERS 1! 

19 OVERS 2 

20 PATTERNS 1 
21 PATTERNS 2 
22 PAINTING 
23 PICTURE 

24 FLAG 

25 FILE 

26 ANDROIDS 
27 вас 

28 SIMON SAYS 
29 FINAL 

30 TEST 

ЗІ SECUNDS 

32 NAVIGATION 
33 SQ ROOT 

34 UP 4 DOWN 
35 DIG. TIMER 


37 BEWARE DOG 
28 EXAM 


39 FEYBUARD M 


40 LAS VEGAS 


| PARROT 


42 KENTACKY 
AJ СІМ 


44 МС 
5 SHAKESPEARE 


EXAMPLE 


PAPER & INK 


LIST TAPE LISTINGS 


is a listing of the 
programs on LIST tape #9. These are 
all 2068 programs. To get this tape 
or any of the other LISI tapes, send 
$6.00, OR a QUALITY 60 minute tape and 
$3.00 to Harvey Rait, at the address 
in the box оп the first page. Better 
yet, come to the meetings and pay only 
$1.50 per tape (call or write Harvey 
first so he can have the  tape(s) 
ready). 


The following 


46 TRESURE H 
A7 I.T. ONE 

48 THE I.T. 

49 WOLF & GOATS 
50 RACER 

51 AT MARKET 
52 WINDOWS 

53 STICKS 

54 NEW CHR$ 
55 NEW CHR$ 
56 NEW СНАФ 
57 NEW CHR* 
58 MESSAGE 

59 TITLEHAKER 
60 REGRESSION 
61 BAR GRAPH 
62 SCROLLS 

63 AUTUMN 

64 NO. SORT 
65 WORD SORT 
66 DERBY DAY 
67 ATTR TABLE 
68 METRIC 

69 HEADER 

70 HEADER/C 
71 SEARCH 

72 S/DATA 

73 DEMOLITION 


SIDE B 


10 
11 


ОЕМОСТТТОМ 
DEMOLITION 
SUBMAR I NE 
BRICKS 
MONE YPAIL 
CHOMFER 
ASTEROIDS · 
TREE MAKER 
MOZART WA 
SANTA мазе 
LOANS улвв 
E Z DIS 
UDG DESIGN 
NETWORK. 
128 CGLORS. 
BANANAS 
M/C LOADER 
PSGE 32/64 
MMI 
CHARACTERS 
FULLGIRLS 
JANIS 
CONVERSION 
TIMER IC 
TITLE/CUDE 
BES 
ATTR 
2XSIZEHITE 
з CHARS 
TITL/SHOOT 
TITL/SHOOT 
PAINTSIC 
SANTA 
SCRAMBLER 
TAPE/ANALY 
MULTIFILE 
SAVER 
SAVER МС 
TASPRINT 
TASFONT о 
TASPRINT 
TAS2PRINT 
TAS2PRINT 
ТАЅРКІНТ 
COMMENTS 


“ 
From C o 

THIS SET OF machine-code routinés provides 
the 16K ZX-81 with 14 new Basic statements 
and commands usually found only on much 
larger and more expensive machines. The 
routines take up 1336 bytes in a Rem 
statement and are designed for ease of use 
with full error codes. Two of the routines are 
interrupt driven and allow you to add your 
own interrupt driven routines. 

То enter the program, a 16K ZX-81 with 
the New run has to be used, it may be possible 
to use less memory, but some of the routines 
will crash if the display file is collapsed, ie., 
RAM is less than 3'AK. 

First, line 1 Rem followed by 128 zeros — 
four lines — is entered. This is then 
duplic 4 аѕ line 2 and so on up to line 10. 
When this has been done, the following are 
entered as direct commands. 

POKE 16511,56 

POKE 16512,5 

POKE 16509,0 

POKE 16510,0 

POKE 16514,118 

POKE 16515,118 

1 REM BETTA BASIC 

POKE 16419,1 

NEW LINE 
You should now have 

1 REM BETTA BASIC 
on the screen, Anything else means that you 
have probably done something wrong and it is 


Геша 
Ри на | тези | шат 
CL Y ЖЕ ШР a 


SIN OL Ad X. 
John Judge adds 14 


Basic commands to 
222589 the ZX-81. 


Lr 


а О ЧОЙ a Чан 


best to start again. 

If all is well then enter the hex-loader 
program 1, ignoring line 0 as this should 
already be in memory. Type Run N/L then 
enter the start address for the machine code 
data, which will be 16514 if you are just 
starting or another number if you are 
continuing from another day or after saving 
partly completed дага. You can now enter the 
hexadecimal data, as many of the numbers as 
you like before pressing Newline, but 
remembering not to enter any of the spaces. 
There is a check-sum number after each line 
of data which you can compare with the 
check-sum number on the screen, if it is 
different then press S N/L and you can enter 
the line that is wrong. By pressing О N/L, you 
can break out of the program to save it. 


Looking through data 


Program 2 is for looking through the data 
for any that is wrong. To use it, type Run 200 
then enter the start address, Type Cont after 
each screenfull. 

If all the data is entered and correct, then 
delete lines 5 onwards and enter program 3. 
Do not use New to delete the lines. The 
program is now finished and ready to use, 
unless some bugs have escaped detection. 

You must have Betta Basic present in the 
computer before you start typing in your 


Program 1. ea IF ЯФ= 
1 REM gaaat ЕТС.... a4 IF A= 
е SCROLL аб IF LEM 
в SCROLL THEN LET я 
18 PRINT AT 18,0; "START RDDRES га IF #5- 
5?" Sa LET N= 
15 LET Ags" -475 | 
га INPUT 3 100 POKE T 
за FOR Xs8 TO 17795 STEP 7 118 LET Cz 
48 SCROLL 1280 PRINT 
ба PRINT AT 19,0; х; 125 LET AS 
55 LET c= 138 NEXT Т 
ea FOR TzX TO X46 148 РКІМТ. 
та IF Ag="" THEN ТНЕЦТ AS а NEXT Ж 


— "e 
>” QUA 


program. In’ this way the machine code 
routines are saved as you save your program 
that uses them. Now, whenever you type 
Run, the variables are initialised ready for 
use. 

INT: Switches on the interrupt routine by 
Rand USR Int to give the following 
features: 

TRACE ON by POKE TRN, 1 or pressing 
N/L and 1 together; 

MEMORY ON by POKE TRN, 2 or 
pressing N/L and 5; ; 

MEM/TRACE OFF by РОКЕ TRN, 0 ог 
pressing N/L and 2; 

ROUTINE OFF by pressing N/L and 3 or 
Fast then Slow; 

Break out of any program — even machine 
code — by pressing N/L and 4. This also 
switches routine off; 

TRACE SPEED by POKE LEN, n where 
n is the length of the pause at each interrupt. 
Initially 3; 

USER ROUTINE: Three bytes — USE, 
USE + 1 and USE + 2 — are set aside to add 
to call to your own interrupt driven routine. 
Initially all are NOPS. Make sure the routine 
is Off by using Fast followed by Slow before 
you start Poking or a crash will occur as soon 
as you Poke in the first number. 

When using the trace or memory left 

(continued on next page) 


"&" THEN RUN 

"à" THEM ЗТОР 
„волт (LEN АФ 2) 
по THEN GOTO 70 - 
1S4CODE BA$«CODE nsiz) 


aM 
СМ 
“ "авг TO 
гАф(3 TO ! 


2l; 


+ ү% 


М 


е 


“features, the number will take up the first five 

characters in the top left corner of the screen. 
These numbers are only printed up during 
the interrupt and the original text or graphics 
are put back into the screen before control is 
handed back to the ROM. So as far as the 
ROM is concerned, the numbers do not even 
exist on the screen and so will not be “іп the 
way". But it is important not to use the 
Sinclair scroll command as this will cause a 
crash after 23 scrolls. 

Pressing N/L and 4 will break out of any 
machine code programs as long as the routine 
is switched on by Rand USR Int. 

The Trace and Memory Left routines will 
automatically switch off when program 
execution ends or any error occurs, though 
they can operate in command mode by using 
N/L and the function keys | to 5. 

The interrupt routine will be switched off 
by any of the following: Fast, Copy, LPrint, 
LList, Save, Load, Pause, New or by entering 
a line. If any of these are used then do not 
forget to switch on again by using Rand USR 
Int before using Trace or Memory Left. 

LOC: This moves VARS up to Eline so that 
all the variables temporarily disappear and 


ERROR CODES. 
variable not found, eg., R$ Іп Rep, 
Proc name etc 
out of memory 
integer out of range, le a number 
less than 0 or greater than 65535 
has been used in a routine 
number error, le a number or 
expression has been left out or does 
not make sense so the computer 
can not change И to an integer for It 
to use. 
break 
missing ; 
too many repeats (max 17) 
syntax error, eg no data or 
expressions 
missing 
until without repeat 
R$ error, eg., R$ has been DIMed or 
is too short so that Rep and Unt can 
not use it. 
Rand too high for LST 

X Proc name error, eg too short 
(minimum three characters or non- 
existant ' . 
Incorrect string variable in line afte 
DYN 


Program 2. 

Дей ТОР 
гора PRINT 
Біз 


сете 


JU ru ur 


Ее 


ш ИЛ + " n 


ra pma mà pa po na | 
2 Ua a Cnr 


zd 


E Cau И 


Р 


Ca tat 


“load variables” can be 
used instead, ie., variable names 
can be used for a second time without 
altering any or the original variables of values 
eg. 

VAR: Restores original variables after using 
LOC. Do not use unless LOC has been used 
first. For example: 

RAND USR VAR. 

SCL: Stands for Scroll. Do not use the 
scroll provided by Sinclair as it will cause 
some of the routines to crash. For example: 

RAND USR SCL. 

In the following, X and Y can be апу 
numberical argument in the range 0 to 65535, 
V any numerical variable, | any numerical 
dummy variable that is not used for anything 
else, anything surrounded by [] is optional, all 
Print statements will be changed to Rem by 
the routine, and should be changed back to 
Print if ever the line is edited. The Print lines 
after the USR lines hold the arguments for 
each routine. 


Function has three uses 


PRT: This has three uses, two of which are 

concerned with the ports. 

a) OUT (port), byte. For cxample: 

10 LET | = USR РАТ 

20 PRINT Х, Y[;X,Y....] 

b) IN variable, (port) or LET variable = IN 
(port). For example: 

10 LET! = USR PAT 

20 PRINT; X where X = port 0 to 255 

c) LD I, X. For example: | 

10 LET! = USR РАТ 

20 PRINT; Х where Х = char set 0 to 255 
This one changes the character set and can be 
used for games or with a graphics ROM — 
initially 30. 

REP: Same as BBC Basic Repeat. The line 
numbers are stpred in R$. Up to 15 Repeats 
can be nested — inside each other — before an 
error occurs. For example: 


10 LET! = USR REP 
UNT: BBC Basic Until. Jumps back to line 

after last Rep. If a testable condition is not 

true. For example. 

10 LET! = USR UNT 

20 PRINT testable condition 

ONG: Same as Оп... Go To... Jumps to 
the Xth line number in a list of numbers. If X 
= 0 or X > number of numbers in list then 
the line after the ONG is executed. For 
example: 

10 LET! = USR ONG 
20 PRINT X ; line [, line... | 
Up to 255 lines can be put on the list. 

PRC: Def Proc. This is a simulation of 
procedures, using names instead of line 
numbers. Each 'procedure' has the following 
structure: 

10 REM PROCNAME 
20 Subroutine or procedure 
30 RETURN 
where Name will be the name of the 
procedure. PRC is called only once at the 
beginning of the program. For example: 
10 LETI = USR PRC 

The routine then searches for all the “Вега 
Procname’’s and puts the names into the 
variables area with their line numbers so that 
a procedure can be called by: 

GOSUB NAME 
The name must be three or more characters 
long and contain only characters legal as a 
variable name, see page 38 of the Sinclair 
manual. There is no space between the Proc 
and the Name. 

DYN: Dynamic procedure. This routine 
tells you whether a name held a string variable 
is a procedure or not so that it may be used 
with VAL without an error occuring. If it 
does not exist. eg., 

10 INPUT A$ 

20 IF USR DYN THEN GOTO VAL A$ 

30 REM AS 

40 GOTO 10 

The above example Gotos a procedure 
entered in line 10 if it exists, otherwise it waits 
for you to enter another. The A$ in lines 10, 
20 and 30 can be changed to any other string 
variable. 

LST This is a fast scrolling list with a few 
extra features. To use: ` ; 
Rand line to list from Rand USR LST 
In this routine you can press: 

Space to break out of the routine; 

Z to copy the screen to the printer; 

K to “normal list" the last line on the screen 
in order to edit; 

D to list through slowly; 


"Цео an 


Cac CO Ut E C m Cf) add 
ППИ ТУ ТИ iWon n dug 


J D Judge, 147 


ed xd ES B e un eu m d 
pn rm rm р р р nm vm ко 
ua ua n Ur bn Мача ME IER 
Uc uc uc uc Un ue Un E 
еі nz m еі mm ed еі егі 
HH on non non Ho 
КЕ EC ZR C Emu 
Шот СМ EE UL c ua 
D am eu 4 са 


h E-E-E- H E E- E H 
b ba МА io o io |o usd d 


C Ко Ка РУТЕ IT nns 
fu) diuturni] « 


(fd comm cuo ei utm c бати узи. Aem сг ба ШШ ба и у Т С у н ғайб t-u1504 
GP urne truc rm ld a ung rule # наға futi tli dup +ш + чш 3 deti) + 


LAGI emu (peii Әт Іі Рибница diam 
dC 6n OTe 


ил пут 
iE o m nm 


address and I will send you a copy of the 


finished program on tape 
Hesters Way Road, Cheltenham, Gloucester- 


then send £3.00 to the following 
shire, GL51 OSD. 


program is a bit daunting, 


If the task 
of typing in this 


B кии 
-4-4-1-4-4-4-4-41-4-4-4 


- o 
E el sd ol 
~ 
Ф о 
EE © "m PENIS 
E268 го 5| Fm cien k , 
= к< Ж г ”, ~ б-со суй tc tu a Ce e tutu шоу ea o 9 ng a O Ш 9 b OGM убио 
е со 5 Е 9 Е vl cd nl ru ru t |] nunc | C Ta dll аа а Ош CH UL аш табу D O (vd Ind AOU био бил EGG HL T CI) CIC ӘТ Paten 
== Е nM тоо би m ОТ ein nona 
= x Ф Oan CO HC rn o n n gor on 
ш е е Ы ш < 2 OWL WT AO O IO C i L Л 
ox 20439 fu C) CHI UL. d eT UU d AA p eur 
o ^ 
96% 6 ырады СИР i Md coo Ca ca T eu eu ro ug éd ev OL ана 1r Сана во мес или. T- TT чн. ку ОС 
Б = 2 т T GOGc OOO + 0r танца араны Са roue өс + у + 
3 
сочс шэн. MLL ONDOAN го носило ADAU OANA G L Cani ra баш убити 
Tos Е UL Ord r- NOSSO GF Ub fid ic AMIN IL ооше + © сез бу + AAN + Са 
> -- о | А & - * ape 
c [Macy E Un ua m duet nag LG Mns fato аи иа Сони mm FT eiiim nima 
E 5 е Е 2 COA lul Geog agi. We Le At Th Ca ЕТ ТА 
2 E = 3 x Г Т к ^J [Г ус: сай 
слуиозЕвка во сипш O AO f cif си ген ше ПУШ C ӘТ D A GOOM GADU T сицео ind cand Cro 
5 9 «o 22 8 Е © c ш2 2 ҮА ГИЛ АТ Н НТ ГЕ + ir rar КЕПИ ИИ ЛИ торте тотоу 
С1>ОФЕсасас>о Amr nem mr. min бир ог -votinimion or. - р Ст сит. + сөй 
ч шиор геод оно cnl FOOT DOVODA dM GET marea Оч ЧН 
"rmm mag n nnn та пбопопопосоповолаяал 3334 г 
2898588 5588 DC HH ncaa ЕЕ nk SE CREEL RCEAR REE ПА ОРДЕНЫ Кр Арнур 
e ers анални аи + -4-4-4-4-4-4-4-4-4-1-1-4-4-4-4-4-4-4-4-4-4-454-4-4- 
соооотсі су сч сч © eA А 0 
чече тч v mL БА БАК 
z С ЦС ИГ Ц 07У 
: тс Ме а, бе “a a 
е 2 Г © ua цаца ча ИЛ 
о 222 то © а LÀ 94.4 1L А ps 
в 5 е 22.8 „ОЕ rede ed e n Cue 
о T со Ф o o .. 
S858 8 22585 22398* пинин 
о 2 = а Ф БТ Е О © о agt “z v. | mom зг AA AA AAT Ола э OE Да IFC OMG сати 
Фо а "20 === = И [- "4 fr | 4 C40 C вози O Ca Ca Eo би сга ше 
. ОФ с о о Я A 
а ogor og Offa Suc 25 Е МГ GOGOA CO T ace 4 
ш өте oz Шу: оу о© 50 8 ныт CHE cac нз Сиш Сә о“ бб ди. FIMO ИТТЕ 
Ф ста Ез 99с%299со5.-4 2 "y 7^2 MP UJ] за) - É в Т шеу LO €) 0 0 4- Си с ои - ти 
5 5 saz > ы ЗП Lp Qao c e rmm са OO-0-09]09 Tf mri eu (Quin orn био 14 0m qm cumin 
> “5885 52 55045590542 Е |: ГУ зог" с 1 Өш uii oni d ol FAG ups о coe 
ТЕ OM FULL с Этна Cm био Стаи ign Өс а Өш muri баш + 3 ' 
o 050 22 азаноцата Eg |5 2 » 
ui "du 28 2 MO rco rinm orm О ЧА пиши on one non 
ZzuX X 49 о; СВА 77 Е- нао онна а ТИЛИ Fara alc Cora ЕТ 
a о> ~ - o | - Il focoso [dM | ' 
SRo 8 23 Рае Picard mt e OO E + O O билото оц. Ира р O2 C шина ТА 9 ш C9 a Т а таш Е ча 
P оос c . o 9 5 9 $ ІМ ІМ ІМ ІМ ІМ Ш ІМ QUO dO d empto Зи ч ее d rare HAL alc би 3 ЕТІ AAGA Fe IL Ol. и. иа ни ТІГІТІ ТЕП 
шо І І o со е о Urry z (arat CLT d A AOO aa Кн AAM aM A A a a aN этн ағаға cd 
ве ао QM o x 5 -g E: LE ~ 14 4.4 --1 LOM dram на d Geor T + Шш Mk mol. Qe d Grati nic OL ис сас 
= 
= = 5 5 5 - > a i x 5 o all еҙ "D Cmm my C Oi m а jp 0 C до бира o fd) 2 бит IT nire ака сага a а бо ша Са 
- 9:2 52 5 6 x 9-9 38 я Е ЖШ |1 гу ПШ B ІП PF чек ANGE STC Н rti deua феа. нц 9 400-0 Ф d nu. СИ. - 
Есе т сло OF 2 б TRE CC И А | E 
2 ас а ао. Oo за о Eja t> u o МО ВР Hm ard ee Ar 
тоа 85515 zl zl ul еі mbes Star Hb rf prn D A A + 317 
8% жаныма ааа е (DOT EHE EI 
2 2 5 ® = 555 5 8 = 5 2, = 3 5 9 Ы екіні asset 
ы шь + е 9 e wt a. 
сс o << то = 9% 
,388 8 558 22 == 
+ 


24 
25 
26 
27 
28 


REM "PLANETS" 


GOTO 10020 

FRINT AT 20,20;"9TH PLANET" 
PRINT AT 18,10) "Ж<--------- 
-SUN" 

PRINT AT 0,23,;"PLUTO" 

PRINT RT 2,23) "DISTANCE" 
PRINT RT 3,23;: "3679 MILL" 


PRINT AT 4,23) "ORBIT" 
PRINT AT 5,23,"248.4YRS" 
FOR Тед TO 30 

LET ReT/15xPI 

(ЕТ зхе21+21жетн A 

LET SY»22«*21X*COS Я 


PLOT 5Х,5Ү 
HEXT T 
PAUSE 250 
CLS 
GOTO 2000 
STOP 
PRINT AT 19,18;"X4--------- 
-SUH" 

22~PRINT RT 1,23,"PLUTO" 
PRINT RT 3,23)"DISTRNCE" 
PRINT RT 4,23,"2794 MILL" 
PRINT RT 5,23,"ORBIT" 
PRINT АТ 6,23;"164.8YRS" 
PRINT RT 29,20; "тн PLANET" 
FOR T=0 TO 30 


ад 
50 
68 
70 
75 


СЕТ НеТ/15%РІ 

LET 5$Х=21+18Ж%51Н A 
(ЕТ SY=22+16#COS A 
PLOT 5Х,5Ү 

NEXT T 

PAUSE 258 

с.8 

сото 2500 


PRINT RT 19,18:"Ж<--------- 


------ SUN" 


&7~PRINT AT 


98 
99 
100 
110 
128 
125 
130 
148 
150 
379 


PRINT AT 0,23, "URANUS" 
PRINT AT 2,23) "DISTANCE" 
PRINT AT 3,23;"1783 MILL" 
PRINT AT 4,23) "ORBIT" 

PRINT AT 5,2Э3›"Ә4.02 YRS" 
28,20)"7TH PLANET" 
FOR Тед TO 38 

LET НтТ/15ЖРТ 

LET 6Х=21+15%51Н А 

LET SY*22*15*COS А 

PLOT 6Х,5Ү 

NEXT T 

PAUSE 250 

съв 

GOTO 3000 

PRINT RT 20,20,"3RD PLANET" 


9,23) "EARTH" 
2,23) "DISTRNCE" 
3,23,"93 MILL" 
4,233 "ОВВІТ" 
PRINT AT 5,23›"1 YEAR" 

| FOR Тед то за 

393 LET ҒчТ/15ЖРІ 

(ЕТ SM-21*7*SIN А 

335 LET 8уе22+7#С03 A 
395~LET SYe22«7XCOS A 

396 PLOT ЗХ,5У 

397 NEXT T 
398 PAUSE 250 
399 CLS 

400 GOTO 5500 
"00 PRINT AT 


510 PRINT RT 
530 PRINT RT 
"40 PRINT RT 
550 PRINT AT 
560 PRINT AT 
565 PRINT AT 
600 FOR т=а TO за 

610 LET ВеТ/15ЖРТ 

620 LET SX"21*13*4SIN А 
630 LET SY«*22*131COS A 
640 PLOT SX,SY 

641 NEXT T 

642 PAUSE 250 

643 CLS 

644-GOTO 3500 . 

650 PRINT RT 


0,23, "SRTURN" 
2,23; "DISTANCE" 
3,23; "866 MILL" 
4,23, "ОРВІТ" 


------50Н" 


651 PRINT RT 
653 PRINT AT 
654 PRINT AT 
65% РЕТНТ ЯТ 
656 PRINT AT 
657 PRINT AT 
700 FOR Тча TO 30 

710 LET ReT/1SX*PI 

720 (ЕТ SX921*10*SIN A 
730 LET 5үе22%10ҰС05 А 
735 PLOT SM.SY 

740 NEXT Т 

74% PAUSE 250 

746 CLS 

747 GOTO 4989 


0,23, "JUPITER" . 
2,23) "DISTANCE" 
3,23)"483 MILL" 
4,23; "ОВВІТ" : ` 


750 PRINT AT 10,10;"%<--------- 
------вин" 


751 PRINT AT 8,23; "МАКЗ" 
753 PRINT AT 2,23) "DISTANCE" 
754“РКІНТ AT 3,23) "141 MILL" 


10,10) "Ж--------- : 


10,10; "ж<--------- 


5,23)"23.46 YRS" 
20,20; "6TH PLANET" 


10,10; "Ұ<--------- 


5,23,"11.86 YRS" 
20,20;"STH PLANET" 


PRINT АТ 4,23›"ОВВ1Т" 

PRINT AT 5,23›"1.Ө8 YRS" 
PRINT AT 20,20)"4ТН PLANET" 
FOR Тед TO 60 


770 LET A=T/30¥#P1 


LET SM»21*8*SIN А 


790 LET SY=22+8*COS А 


HEXT T 
сз 


PLOT 6Х,5Ү 
PAUSE 250 


вза GOTO 5000 


PRINT AT 
850 PRINT AT 


PRINT RT 
853 PRINT RT 
PRINT RT 
855 PRINT RT 
856 PRINT AT 


20,20;"2ND PLANET" 
10,1@0›"ж‹--------- 


@,23) "VENUS" 
2,23) "DISTANCE" 
3,23,"67.2 MILL" 
4,23) "ORBIT" 
5,23, "225 DAYS" 


as? FOR Тед TO 38 
858"LET Re€T^/15*PI 


359 


LET SMe21*4XSIN A 


860 (ЕТ SYe22*«4xCOS А 


861 
862 НЕХТ Т 


PLOT 5%,5Ү 


863 PAUSE 250 


CLS 


865 GOTO 7000 


963 PRIHT АТ 
969 PRINT AT 
910 FRINT RT 


915 PRINT 
320 FOR Тт 
925 LET М” 
930 LET SX 
$40 LET SY 
250 PLOT 8 
255 NEXT T 
960 PAUSE 
CLS 
сото в 
STOP 
PRINT 


А PRINT 
1030 PRIHT 
MME GIVES" 
1048 PRINT 
SYSTEM" 
1050 PRINT 
ATED” 


FRINT AT 


10,10) "¥<------- -- 


а, 23; "MERCURY" 
2, 23: "DISTANCE" 
3,23,"36 MILL" 
4,23; "ORBIT" 
5,га: "9в DAYS" 
ат 20,20;"15Т PLANET" 
е TO 30 

Т/15ЖРІ 

=21+2¥SIN A 
»22+2ж005 A 

x. SY 


250 
оса 
“THE PLANETARY SYSTEM 


"THIS COMPUTER PROGRA 
"DETAILS OF THE SOLAR 
"AND INCLUDES AN ANIM 


1060 PRINT "REPRESENTATION OF TH 
E PLANETARY" 


1978 PRINT 

SYSTEM," 
1075 PRINT 
1100 PRINT "PRESS ""NEWLINE KEY" 
" то START" 

1110 PRINT "YOUR JOURNEY THROUGH 
TIME АНО" 

1120 PRINT "S РАС Е." 

1121 PRINT 

1122 PRINT : 

1123 PRINT """PLUTO"" ""НЕРТЏНЕ" 
„ин URANUS" wn 

1125 PRINT 

1126 PRINT """SRTURN"" ""JUPITER 
ни "имдрб""" 

1128 PRINT 

1129 PRINT """ERRTH"" ""VEHUS"" 
""MERCURY""" 

1132 INPUT A% 

1135 CLS 

1140 IF fi&e"" THEN GOTO 1200 
1200 PRIHT "PLUTO" 


"ORBITS OF OUR SOLRR 


1220 PRINT "THE HINTH PLRHET OF 
THE SOLRR" 

1230 PRINT "SYSTEM, ORBITING THE 
SUM RT я" 

1240 PRINT "MEAN DISTANCE OF 39. 
тағ) IN" 


1258 PRINT "248.4 YERRS.PLUTO НА 
5 DISCOVERED" 

1260 FRIHT "IN 1930 FOLLOWING ОВ 
SERVATIONS" 


1270 PRINT "OF PERTURBATIONS ІН 


NEPTUNES" 

1280 PRINT "ORBIT.PLUTOS MASS 15 
PROBABLY" 

1290 PRINT "LESS THAN 8.1 OF THA 
T OF EARTH." 

1295 PRINT "DIAMETER IS PROBABLY 
"ове то" 

1296 PRINT "6000 KILOMETRES AND 


THE ORBIT IS" 

1297 PRINT "VERY ECCENTRIC" 
1298 PRINT 

1299 PRINT 

1300 PRINT "PRESS ""NEWLINE TO $ 
EE ORBIT" 

1302 INPUT AS 

1303 CLS 

1304 IF A®=#"" THEN GOTO З 
2600 PRINT "NEPTUNE" 

2011 PRINT 

2012 PRINT 


Ty ун пун кишш ас аз au 
educational routine which рго- 


BB vides the user with a semi-educa- 
-$ tional description of each planet, 


7 followed by an animated graphic 


Fm presentation of each planetary orbit. 


2013 PRINT 

LANET AND" 

2014 PRINT "THE EIGHTH PLANET FR 

ПМ THE SUN." 

201% PRINT "HEPTUNE WAS FIRST DI 

SCOVERED IN" 

2016 PRINT "1846 BASED ON PERTUR 

BATIONS IN" 

2017 PRINT "THE ORBIT OF URANUS. 

NEPTUNE HAS TWO MOONS, ""TRITOH"" 
AND " "НЕВЕ 1 р" "н 

2018 PRINT "NEPTUNES 
164.6 TIMES" 

2819 PRINT “THAT OF EARTH.ITS DI 

AMETER IS" 

2020 PRINT “ABOUT 51 M^M AND ITS 
MASS ABOUT" 

2021 PRINT "17.45 TIMES THAT OF 

THE EARTH" 

2022“РКІМТ 

2023 РКІНТ 

2024 PRINT "PRESS ""HEMLINE"" TO 
SEE ORBIT" 

202% INPUT AÑ 

2926 CLS 

2027 ТЕ Нв!" 
2500 PRINT 
2515 PRINT 
2528 PRINT "THE THIRD LARGEST PL 
RHET IN THE" 

2530 PRINT "SOLAR SYSTEM AND SEV 
EHTH FROM" 

2540 PRINT "THE SUH.PHYSICRLLY V 
ERY SIMILRR" 

2550 FRINT "TO HEPTUNE,BUT РАТНЕ 

R LRRGER" 

2560 PRINT "53 МАМ +7- 5 878.1TS 
DISTANCE" 

2570 PRINT "FROM THE SUN IS 19.2 
RU RND IT" 

2580 PRINT "ORBITS THE SUN ІН 84 
„22 YEARS." 

2590 PRINT "URANUS HAS FIVE MOON 

S IN ORBITS" 

2591 PRINT "THAT ARE RETROGRADE. 
2592 
2593 
2134 
ЗЕЕ 
2595 
2596 
2597 
3000 
3015 


"THE FOURTH LARGEST Р 


НИЧЕВЕ"" IS 


THEN GOTO 21 
"URANUS" 


PRINT 

PRINT 

PRINT "PRESS ""HEHLINE"" ТО 
ORBIT" 

INPUT A% 

с.в 

IF Няч"" THEN GOTO 69 
PRINT "SATURN" 

PRINT 


3020 FRINT 


ND HYDROGEN" 


We are sure that it will prove use- 
ful to science students and teachers. 
(t was sent by K Е Williams of New 
South Wales, Australia (16K Z X-81). 


3025 PRINT "THE SECOND LRRGETS P 

LRHET .IH THE" 

3030 PRINT "SOLAR SYSTEM AHO THE 
SIXTH FROM" 

3035 PRINT "FROM THE SUN.IT ORBI 

TS THE SUN" 

3040 PRINT "IN 29.46 YEARS RT A 

DISTRHCE OF" 

204% PRINT "S.54RU. SRTURN HAS TH 

E LOWEST" 

3050 PRINT "DENSITY OF RLL OF TH 
E PLANETS," 

3055 FRINT "LESS THAN THAT OF НА 
TER,RND MAY" 

3060 PRINT "CONTAIN OVER 60 0/0 
HYDROGEN BY" 

206% PRINT "MASS.ITS TOTAL MASS 
15 95 TIMES" 

3078 PRINT "THAT OF ERRTH.SRTURH 
HAS TEN" 

3075 PRINT "MOONS AND ITS MOST S 
TRIKING" 

2066 PRINT "FEATURE ARE THE SYST 
EM OF RINGS" 

3090 PRINT "16 KM THICK AND THOU 
GHT TO BE" 

3095 PRINT "COMPOSED OF TINY ICE 
FARTICLES" 

3100 PRINT 

3118 PRINT 

3125 PRINT "PRESS ""NEWLINE"" TO 
SEE ORBIT" 

3138 INPUT R$ 

3135 CLS 

3140 IF R&»"" THEN GOTO 500 

3500 PRINT "JUPITER" 

3*520 PRINT 

3538 PRINT 

3535 PRINT "JUPITER IS THE LRRGE 
ST AND MOST" 

3540 PRINT "MRSSIVE IN THE SOLRR 
SYSTEM AND" 

3545 PRINT "IS FIFTH FROM THE SU 
N. MASS IS" 

3550 PRINT "317.8 TIMES THAT OF 
THE EARTH." 

3555 PRINT "JUPITER IS 5.28RU FR 

OM THE SUN” 

3560 PRINT "AND HRS RN ORBIT OF 
11.86 ERRTH" 

3565 PRINT "YEARS.ATMOSPHERE CON 

SISTS MRINLY" 

3570 PRINT "OF METHRNE,RMMONIR R 


3575 PRINT ".JUPITER HAS 13 MOON 


2580 PRINT "LARGEST BEING ""GANE 
YMEDE"" AND" 


PRINT """CRLLISTO. JUPITER H 
NT "PROMINENT FERTURE CR 
PRINT "RED SPOT"" THRT HRS 
PRINT "FOR OVER 159 YERRS" 


PRINT "PRESS ""HEHLINE"" ТО 
8 
IF Аве"" THEN GOTO 659 


T 
PRINT "MARS IS THE FOURTH P 
LANET FROM" 
4540 PRINT "THE SUN.WITH AN ORBI 


4545 PRINT "EARTH DAYS.AND IS 1. 


4550 PRINT "THE SUN. THE HIGHEST 
TEMPERATURE" 

4555 PRINT "AT THE EQUATOR IS AB 
OUT за DEG." 

4960 PRINT "АМО THE LOWEST ABOUT 


4565 PRINT "CENTIGRRDE.MRRS HRS 
R MERN DIRM." 

4570 PRINT "OF 6759 KM,RND HRS D 
ISTINCTIVE" 

"POLAR ICE CAPS WITH 


"RECESSION.MARS HAS T 
"""PHOBOS"" AND ""DEI 


"IT IS UNSURE IF MRRS 
CAN SUPPORT" 

4591 PRINT "LIFE AS КМОМН ON PLA 

NET EARTH." 


PRINT "PRESS ""HEWLINE"" TO 


ТЕ R&e"" THEN GOTO 758 
PRINT "ERRTH" 


PRINT "PLANET EARTH IS THE 
THIRD PLANET" 
5950 PRINT "FROM THE SUN» AND AT 


“062 PRINT "THE ONLY PLANET KNOW 
Н TO SUPPORT" 
$5070 PRINT "LIFE A 
HE ERRTH IS" 
“090 PRINT "RATHER LARGER THAN M 


S WE KNOM IT.T 


"AN ORBIT OF RPPROX.O 
HE YERR ON" 

*100 PRINT "ITS JOURNEY AROUND T 
HE SUN. EARTH" 

5120 PRINT "IS SLIGHLTY FLATTENE 


"POLES AND IS ABOUT 1 


2756 KM IN" 
5140 PRINT 
NOH, EARTH" 
5150 PRINT "HAS ONE MOON. THE EAR 
TH WAS" ' 
51690 PRINT "FORMED ABOUT 4550 MI 
LION YEARS" 
"170 PRINT "AGO AND HAS SUPPORTE 
D MAN FOR" 
180 PRINT ".009 0/0 OF THIS ТІМ 
Е" 
"190 
5195 
ЗЕЕ 
5200 
$210 
5220 
5500 
5520 


"DIAMETER.AS WE ALL К 


PRINT 

PRINT "PRESS ""НЕШЛНЕ"" ТО 

ORBIT" 

IHPUT АЖ 

CLS 

IF AS="" THEN GOTO 379 

FRINT "VENUS" 

PRINT 

$530 PRINT 

5540 PRINT "VENUS IS THE SECOND 
PLANET FROM" 

5550 PRINT "THE SUN 
THE SAME" 

5560 PRINT "SIZE AS THE EARTH.AN 
p IS . 7280" 

7570 PRINT "DISTANT FROM THE SUN 
,RHD ORBITS" 

$580 PRINT "THE SUN IN 225 DAYS, 
ABAT TWO" 

$590 PRINT "THIRDS OF AN EARTH Y 

EAR." 

#600 PRINT “THE SURFACE ТЕМРЕКАТ 

URE 15 ABOUT" 5 

3610 PRINT "750 DEGRESS К.ТНЕ SU 

RFACE 15" 

«620 PRINT "COMPLETELY OBSCURED 

BY DENSE" 

3630 PRINT "CLOUDS CONTANING SUL 

PHURIC ACID" 

“640 PRINT "LIFE AS WE KNOW IT C 

QULD HOT" 

5630 PRINT "EXIST UNDER THESE CO 

NDITIONS" 

5660 PRINT 

7670 PRINT 

3680 PRINT "PRESS ""НЕШЛНЕ"" TO 
SEE ORBIT" 

5690 INPUT AS 

5691 CLS 

5695 GOTO 849 

6908 PRINT "STANDBY" 

7000 PRINT "MERCURY" 

7920 PRINT | 

7030 PRINT қ 

7040 PRINT "MERCURY IS THE PLANE 
T CLOSEST TO" 

7050 PRINT "THE SUN.NIGHT SURFAC 
Е TEMP IS" 

7060 PRINT "THOUGHT TO BE 110 DE 
GRESS K,RHD" 

7078 PRINT "AND MIDDAY EQUATORIA 
L TEMP ABOUT” 

7980 PRINT "600 DEGREES K.THUS Р 


AND 15 ABOUT 


RECLUDING" 

2090 PRINT "LIFE RS WE KNOW IT 0 
N EARTH" 

7100 PRINT "MERCURY HAS LITTLE 0 
R NO кноин" 

7120 PRINT “ATMOSPHERE, АМО HAS N 
о MOONS" 

7139 PRINT "THE PLANETS AVERAGE 
DENSITY IS" 

7140 PRINT "5.2 GRAMS PER CUBIC 


CENTIMETRE" 
7150 PRINT 
7160 PRINT 
7170 PRINT "PRESS ""NEWLINE"" TO 
SEE ORBIT" 

7180 INPUT Рт 

7190 CLS 

7195 IF R&e"" THEN GOTO 999 

2900 PRINT """ZX-81 MICRO-COMPUT 
ER "өн 

8020 PRINT 

8030 PRINT "TRUSTS YOU HRVE ENJO 
YED THIS" 

8835 PRINT 

8040 PRINT "LITTLE TRIP THROUGH 
THE £OLRR" 

8045 PRINT 

8050 PRINT "SYSTEM AND THAT IT Н 

RS GIVEN YOU" 

8855 PRINT 
8060 PRINT 
A BETTER" 
8065 PRINT’ 
вата PRINT 
UNIVERSE" 
8088 PRINT 
в090 PRINT 
8891 PRINT 
8092 PRINT "ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЭХ ЖЖ 

ЖЖ ЖЖ ЖЖ xx" 

8093 PAUSE 8098 

8094 CLS 

809% PRINT."RS A SOBERING THOUGH 
T HERE ARE" 

8100 PRINT "THE DISTANCES FROM T 
HE SUN IN" 

8200 PRINT "MILES OF EACH OF OUR 

9 PLANETS" 

8300- PRINT 

8408 PRINT "PLUTO.....3670 MILLI 
ON MILES" 

A500 PRINT "NEPTUNE...2794 MILLI 
DN MILES" 

8510 PRINT "URANUS. ...1783 MILLI 
ON MILES" 
8520 PRINT "ВАТИРН....866.2 MILL 
ION MILES" 
8530 PRINT "JUPITER...483.3 MILL 
ION MILES" 
8540 PRINT "MRRS......141.5 MILL 
тон MILES" 
8558 PRINT "ERRTH.....93 MILLION 
MILES" 
8560 PRINT "VENUS.....67.2 MILLI 
ON MILES" 
8570 PRINT "MERCURY...36 MILION 
MILES" 
8580 PRINT 
8590 PRINT "IT TAKES SUNLIGHT В. 
33 MINUTES" i 
8595 PRINT "TO REACH EARTH AT 18 
6000 MILES" 
8600 PRINT "PER бЕСОНО........." 
8618 PRINT "IT WOULD TAKE А ""JU 
MBO"" JET 645" 
8620 PRINT "DAYS RT 688 MPH NON- 
STOP... eS" 
8630 PRINT 
8640 PRINT ".........ТНІНК ABOUT 


IT" 
зада STOP 
SRVE "PLRHETS" 


9001 
9002 GOTO 1 


"FOOD FOR THOUGHT AND 


"UNDERSTANDING OF OUR 


20 PRINT AT 1,3;"DECIMRL-HEXRO 
ECIMRL-BINRRY",RT 3,8)"INTERCONV 
ERSION" 
30 PRINT RT 6,9;"SELECT INPUT” 
40 PRINT RT 9,6; "ве DECIMAL” 
JAT 11,60; "OX )» HEXADECIMAL" J AT 
13,6) "C X)" BINARY" 
50 REM initislise 
60 DIM Ү6(16> 
78 (ЕТ 2$-"0000000000000000" 
вд LET 03е"" 
90 LET С%="1240" 
LET Се19 
DIM BK 4) 
LET BC12»4056 
LET В(22е256 
LET BC3)5*16 
КЕТ 84 )=1 
REM select 
INPUT AS 
CLS 
190 LET 09-886 


200 IF 06%"8" THEN GOTO 230 
210 IF Qe="**" THEN GOTO 440 
220 IF й-"ж" THEN GOTO 638 
230 REM dec-bin 

240 PRINT AT 21,0) "DEC" 

250 SLOW 

268 INPUT Яв 

270 FAST 

288 IF LEN A®>S THEN GOTO 250 


292 IF Аве"ж“ OR AS="*K" OR R$» 
"$" THEN LLIST 198 . 
300 PRINT RT 21,004 " 
318 SCROLL 
320 PRINT RT C,S-LEN ASAS 


330 LET X-VRL AG 
340 FOR Н”1 TO 16 

358 LET Ү9(17-М2е-8ТКФ ¢X72<>INT 
(X722) 

360 LET Хетнт (X725 

370 IF Хед THEN GOTO 390 

3880 NEXT N 

398 IF Хед THEM LET Y$-29( TO 1 
6-N»*Y8(17-N TO >» 

ада LET Ға-Үүв 

418 PRINT RT C,15,R&( TO 8), "" 
jReCS TO >» 

420 IF Qe="kxk" THEN GOTO 440 
430 IF Q$-"$" THEN GOTO 748 

440 REM hex-dec 


458 PRINT RT 21,0) "НЕХ" 

460 SLOW 

478 INPUT AS 

480 FAST 

492 IF LEN 8824 THEN GOTO 460 
500 IF Аве"ж" ОК Аез"жж" OR R$» 


"а" THEN СОТО 198 

518 PRINT RT 21,8)" е 

522 SCROLL 

530 IF LEN Я%<4 THEN LET Ав=29‹ 
TO 4-LEN AS )>+AS 

548 PRINT RT C,8,R$ 

550 (ЕТ 8-0 

560 РОК Не! TO LEN AS 

570 IF A@CN><>"O" THEN LET 8+6+ 
(CODE Аесм)-28 ужвсн» 

580 NEXT М 

598 LET A®@STRe 8 ; 

600 PRINT RT C,S-LEN AVAS 

610 IF Q$e"x" THEN GOTO 630 
620 IF О®="ж%"' THEN СОТО 330 


ЕТЕ 


424 


ЕХ BIN CONVERTER is а 
је кот for conversions be- 
tween the hexadecimal, decimal 
and binary number systems. Conver- 


. sions can be made for numbers between 
_ the equivalents of 0 and 65535 decimal 


from hex or decimal into the other two 
systems or from binary into hex. 
When RUN, the program will ask 


' the user for his choice of number sys- 


tem input; enter “$” for decimal, 44%” 


: for hex or ''*" for binary. Then enter 


the number and its conversions will be 
printed on the screen. Another number 
in the same system may then be entered, 
or a switch to another system be effect- 
ed by entering the appropriate symbol. 
The display scrolls after every conver- 
sion. 

This excellent routine was sent by Dr 
B Thornton of Salisbury, Wiltshire. 
(16K ZX-81). 


630 
648 
650 
668 
670 


REM bin-hex 

PRINT RT 21,0) "ВІН" 
SLOW 

INPUT AS 

FAST 

680 IF LEN A®>16 THEN COTO 650 
,690 IF Аве"ж" OR AS="KK" OR Age 
4%" THEN GOTO 198 

700 PRINT RT 21,9," be 

719 SCROLL ` 


|728 IF LEN AB<16 THEN LET Яя-2а 
6 TO 16-LEN R95«n$ 

1738 PRINT RT C.15,8* TO Вън" 
‚999 TO > 

740 LET Оз="" 

750 FOR M=4 TO 1 STEP -1 

760 LET LeMk4 

778 IF VAL ASC ТО (ред THEN СОТ 
0 ese 


i780 LET 8-0 

|792 FOR не! TO 4 

"890 IF _ASCL-N¢l ен" THEN LET $ 
eS+VAL Сен» 

818 NEXT N 

820 LET D$-CHR$ (S+28)+D8 

830 LET AS=AK ТО L-4) 

640 НЕХТ M 

859 IF LEN 09<4 THEN LET О%»2%‹ 


TO 4-LEN 0%8)+0% 

860 PRINT RT С,8:08 

888 IF Q$-»"$" THEN GOTO 230 
вод If пее "ж" THEN GOTO 558 
900 SAVE "CONVERT" 

919 GOTO 19 


UICK TAPE, а machine code 

tape routine, will allow you to 

save and load 16K programs 

on the ZX-81 in less than a 
minute. In technical terms the pro- 
gram increases the machine baud 
rate to 1,500. To pul in the program 
for the first time, type-in and run the 
hex loader, which is the first pro- 
gram in the listing. In answer to the 
program prompt, type-in the 
machine code listing line by line. 
When you have finished the listing, 
type "5" and the machine code will be 
transferred to the REM statement in 
line 1. Then delete the loader, line by 
line, keeping the REM intact. 


Type-in the second program, start- 
ing at line 10. The REM in line 1 
should look like the REM statement 
which you have just created. When 
you run this program it will SAVE 
itself on to tape and then NEW auto- 
matically. The machine code routine 
is then stored above RAMTOP ready 
for use. 


To SAVE a program, type RAND 
USE 32512 and to LOAD, type RAND 
USR 32525. When you want to use 
the program LOAD it normally and 
RUN. The Basic will destroy itself 
after transferring the machine code 
abcve RAMTOP. The routine will 
then be ready to use on your faster 
computer. 


Quick Tape was sent by K 5 
Beddoe of Botley, Southampton and 
is proving very useful. 


e Machi de listi 
ie LET ng-o-s Ws CD 29 е 


INPUT въ 16522  7F CD 2B 
IF B$="S" THEN STOP en Ge а 
LET AR=AFIBE - 00 00 
CLS . 38 F9 
PRINT AS | OF 30 

ТӨ PRINT “LENGTH= “;LEN Аир; =" 20 Ра 
S o рота га С) ЕС 
100 LET X=16514 D3 FF 
F ‘ 

зае te Ag="" THEN GOTO 160 x Re 
120 POKE X,16xCODE AS+CODE ЯФ t2 ла оз 
) -4.76 7F 18 


LET RASSAS(S ТО)» ТЕ DB Е 
1 


LET ж-х+ y ү 
GOTO 110 p Bs 
SLOU CB 24 
STOP 45,47 
ОБАЧЕ "FAST TAPE ROUT INS" FC 01 
PRINT “FAST TAPE ROUTINE" 12 
PRINT “ТО SAVE RAND USR 325 abs 
7A 

PRINT "TO LORD- RAND USR 325 % 
40 

USE 150 Bo 
BANE USR 16738 | C3 


POKE 16515,32 
FOKE 16924.40 
POKE 16528,32 
POKE 16548,98 
POKE 16562,67 
POKE 


16618,6€? 


N UPDATE of the Quick Tape 

А listing in our last issue is рго- 

vided by D Buon of Shrewsbury. 

He points out that ZX-81 computers 

with the old ROM have an in-built 

malfunction which prevents our routine 
working. 

If you enter. “RAND USR 32512” 
and get a report of D/O, you have the 
old ROM machine and should load the 
Quick Tape program as normal, then 
BREAK, and then enter the listing 
published here. Finally, enter the new 
line “55 POKE 16437,255”, start your 
tape deck recording, and RUN. 


OF 


12 


Гы +P COULD РБ WOUR La 
ISTING. SO WOR 
Ағар» COT INUE RECEIVING THIS 
HEHSLETTER. SEE FRONT COVER 
FOR DETAILS ON EXPIRATION DATE 


List pues